home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gslp.ps < prev    next >
Text File  |  1997-11-17  |  16KB  |  538 lines
  1. %    Copyright (C) 1991, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gslp.ps - format and print text
  19.  
  20. % This utility provides functionality approximately equivalent to the Unix
  21. % `enscript' program.  It prints plain text files using a single font.
  22. % It currently handles tabs and formfeeds, but not backspaces.
  23. % It only works with fixed-pitch fonts.
  24. % Standard flags implemented:
  25. %    -12BclqRr -b<header> -f<font> -F<hfont> -L<lines> -p<outfile>
  26. % Sun flags implemented:
  27. %    -T<n>    set tab width
  28. % Flags ignored:
  29. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  30. % Flags added:
  31. %    --columns <n>
  32. %        print in <n> columns
  33. %    --detect
  34. %        treat the file as PostScript if it starts with %!
  35. %    --first-page <n>
  36. %        start printing at page <n>
  37. %    --last-page <n>
  38. %        stop printing after page <n>
  39. %    --(heading|footing)-(left|center|right) <string>
  40. %        set the heading/footing fields; use -B first to clear
  41. %    --margin-(top|bottom|left|right) <inches>
  42. %        set a margin
  43. %    --no-eject-(file|formfeed)
  44. %        end-of-file/FF only starts a new column, not a new sheet
  45. %    --spacing <n>
  46. %        use double (n=2), triple (n=3), etc. spacing
  47. % Also, the string %# in a heading or footing is replaced with the page #.
  48. /PageNumberString (%#) def
  49.  
  50. /lpdict 150 dict def
  51. lpdict begin
  52.  
  53. % build iso-latin-1 version of a font
  54. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  55.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  56.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  57.     /Encoding ISOLatin1Encoding def currentdict end
  58.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  59.     exch definefont
  60. } def
  61.  
  62. /find-latin-font {    % <name> find-latin-font <font>
  63.   findfont font-to-iso-latin-1
  64. } def
  65.  
  66. % Define the initial values of the printing parameters.
  67.  
  68. /BodyFont null def        % use default
  69.   /defaultBodyFont
  70.     { /Courier find-latin-font Landscape { 7 } { 10 } ifelse scalefont } def
  71. /Columns 1 def
  72. /DetectFileType false def
  73. /EjectEOF true def
  74. /EjectFF true def
  75. /Footers false def
  76. /FootingLeft () def
  77. /FootingCenter () def
  78. /FootingRight () def
  79. /Headers true def
  80. /HeadingLeft () def
  81. /HeadingCenter () def
  82. /HeadingRight (page ) PageNumberString concatstrings def
  83. /HeadingFont null def        % use default
  84.   /defaultHeadingFont
  85.     { /Courier-Bold find-latin-font 10 scalefont } def
  86. /Landscape false def
  87. /MarginBottom 36 def        % 1/2"
  88. /MarginLeft 36 def        % 1/2"
  89. /MarginRight 36 def        % 1/2"
  90. /MarginTop 36 def        % 1/2"
  91. /MaxLines 9999 def        % max lines per page
  92. /Noisy true def            % i.e., not quiet
  93. /OutFile null def        % null = write directly to device
  94. /PageFirst 1 def
  95. /PageLast 99999 def
  96. /Spacing 1 def
  97. /Tab 8 def
  98. /Truncate false def        % wrap long lines, don't truncate
  99.  
  100. % When writing to a file, we want to write out PostScript;
  101. % when writing to the printer, we want to execute it;
  102. % some commands should be executed regardless.
  103. % lpexec provides for all this.
  104.  
  105. /lpexec        % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  106.  { OutFile null eq
  107.     { pop 1 add true
  108.     }
  109.     { /t exch def 1 add /n exch def cvx
  110.       n { n -1 roll dup wosp } repeat
  111.       OutFile (\n) writestring
  112.       n t
  113.     }
  114.    ifelse
  115.     { pop load exec }
  116.     { { pop } repeat }
  117.    ifelse
  118.  } def
  119.  
  120. /lpmoveto
  121.  { /moveto 2 true lpexec
  122.  } def
  123. /lpshow
  124.  { dup length 0 ne { /show 1 true lpexec } { pop } ifelse
  125.  } def
  126. /lpsetmyfont
  127.  { dup load setfont
  128.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  129.  } def
  130.  
  131. % Define some utility procedures.
  132.  
  133. /banner        % ypos left center right
  134.  { /HFont lpsetmyfont
  135.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  136.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  137.    bannerstring
  138.         % Prevent the last character of the heading from grazing
  139.         % the right margin.
  140.         % ****** WHY DOES IT REQUIRE SO MUCH PADDING? ******
  141.    ( ) stringwidth pop 2 mul add
  142.    pwidth exch sub
  143.    3 -1 roll pwidth showline2 pop
  144.  } def
  145.  
  146. /bannerstring    % string -> string width
  147.   { PageNumberString search
  148.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  149.      }
  150.     if dup stringwidth pop
  151.   } def
  152.  
  153. /beginpage
  154.  { /lindex 0 def
  155.    /skipping pindex PageFirst ge pindex PageLast le and not def
  156.    /save 0 true lpexec /pagesave exch def
  157.    skipping { nulldevice   /OutFile null def } if
  158.    Headers
  159.     { lheight hdescent add
  160.       HeadingLeft HeadingCenter HeadingRight banner
  161.     } if
  162.    /BFont lpsetmyfont
  163.  } def
  164.  
  165. /endpage
  166.  { lindex 0 ne
  167.     { Footers
  168.        { topskip plength sub hdescent add
  169.          FootingLeft FootingCenter FootingRight banner
  170.        } if
  171.       /showpage 0 false lpexec
  172.     } if
  173.    pagesave /restore 0 true lpexec
  174.    /pindex pindex 1 add def
  175.  } def
  176.  
  177. /endcolumn
  178.  { lindex colines 1 sub add colines idiv colines mul
  179.    dup llength ge { pop endpage beginpage } { /lindex exch def } ifelse
  180.  } def
  181.  
  182. /fontheight    % <font> fontheight <ascent> <height>
  183.  { gsave setfont
  184.    newpath 0 0 moveto
  185.    (|^_j) false charpath
  186.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  187.    grestore exch 1.25 mul exch 1.25 mul
  188.  } def
  189.  
  190. /wosp
  191.  { OutFile ( ) writestring OutFile exch write==only
  192.  } def
  193.  
  194. /outfont        % name font ->
  195.  { OutFile null ne
  196.     { exch wosp
  197.       dup /FontName get 
  198.       dup wosp OutFile ( findfont) writestring
  199.       %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  200.       OutFile ( 
  201.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  202.     /Encoding ISOLatin1Encoding def currentdict end
  203.       ) writestring
  204.       wosp OutFile (-ISOLatin1 exch definefont) writestring
  205.       /FontMatrix get 0 get 1000 mul round cvi wosp
  206.       OutFile ( scalefont def\n) writestring
  207.     }
  208.     { pop pop
  209.     }
  210.    ifelse
  211.  } def
  212.  
  213. /StringFF (\f) def
  214. /CharFF StringFF 0 get def
  215. /StringTAB (\t) def
  216. /CharTAB StringTAB 0 get def
  217.  
  218. /showline        % line -> leftover_line (handles \f)
  219.  {  { showline1 dup length 0 eq { exit } if
  220.       dup 0 get CharFF ne { exit } if
  221.       EjectFF { endpage beginpage } { endcolumn } ifelse
  222.       skip1
  223.     }
  224.    loop
  225.  } def
  226.  
  227. /showline1        % line -> leftover_line (handles page break)
  228.  { lindex llength eq { endpage beginpage } if
  229.    lindex colines idiv cowidth mul        % x
  230.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  231.    1 index cowidth add
  232.    showline2
  233.    /lindex lindex 1 add def
  234.  } def
  235.  
  236. /showline2    % string x y xlimit -> leftover_string (handles tabs)
  237.  { 2 index exch 5 2 roll lpmoveto    % xinit xlimit string
  238.     { showline3 dup length 0 eq { exit } if
  239.       dup 0 get CharTAB ne { exit } if
  240.       currentpoint exch 4 index sub tabwx div
  241.     0.05 add ceiling tabwx mul 4 index add exch lpmoveto
  242.       skip1
  243.       currentpoint pop 2 index ge { exit } if
  244.     }
  245.    loop exch pop exch pop
  246.  } def
  247.  
  248. /showline3    % xlimit string -> xlimit leftover_string
  249.         % (finds line break / tab / formfeed)
  250.  { currentpoint pop 2 index exch sub
  251.      cwx div 0.1 add cvi 0 max 1 index length min
  252.    1 index 0 3 -1 roll getinterval
  253.     % look for \f or \t
  254.    StringFF search { exch pop exch pop } if
  255.    StringTAB search { exch pop exch pop } if
  256.    dup lpshow
  257.    length dup 2 index length exch sub getinterval
  258.  } def
  259.  
  260. /skip1
  261.  { dup length 1 sub 1 exch getinterval
  262.  } def
  263.  
  264. /e== {        % <object> e== - -- print an object to stderr
  265.   (%stderr) (w) file dup 3 -1 roll write==only flushfile
  266. } def
  267.  
  268. /eprint {    % <string> eprint - -- print a string to stderr
  269.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  270. } def
  271.  
  272. % The main printing procedure
  273.  
  274. /lp        % file initial_chars ->
  275.  { /lpline exch def
  276.    /lpfile exch def
  277.    /save 0 true lpexec
  278.  
  279. % Initialize the device and fonts.
  280.    /BFont
  281.      BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  282.    /BFont BFont outfont
  283.    Headers Footers or
  284.     { /HFont
  285.     HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  286.       /HFont HFont outfont
  287.     }
  288.    if
  289.  
  290. % Get the layout parameters.
  291.    clippath
  292.    Landscape { 90 /rotate 1 true lpexec } if
  293.    BFont setfont ( ) stringwidth pop /cwx exch def
  294.      cwx Tab mul /tabwx exch def
  295.    BFont fontheight /fheight exch def /fascent exch def
  296.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  297.      /hheight exch def /hascent exch def
  298.      /hdescent hheight hascent sub def
  299.    fheight Spacing mul /lheight exch def
  300.    Headers { hheight lheight add } { 0 } ifelse
  301.      /topskip exch def
  302.    Footers { hheight lheight add } { 0 } ifelse
  303.      /botskip exch def
  304.    /pskip topskip botskip add def
  305.     % Translate the page so that (0,0) corresponds to
  306.     % the top of the topmost body line.
  307.    pathbbox
  308.      2 index sub MarginBottom MarginTop add sub /plength exch def
  309.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  310.      pwidth Columns div /cowidth exch def
  311.      exch MarginLeft add
  312.      exch MarginBottom add plength add topskip sub
  313.      /translate 2 true lpexec
  314.    plength pskip sub lheight div cvi MaxLines min
  315.      dup /colines exch def
  316.      Columns mul /llength exch def
  317.    OutFile null ne { nulldevice } if
  318.  
  319. % Print layout
  320.    Noisy
  321.     { (Page height = ) eprint llength e==
  322.       (.\n) eprint flush
  323.     } if
  324.  
  325. % Disable stack recording so we can use stopped with readline.
  326.    $error /recordstacks false put
  327.  
  328. % Initialize for the first page.
  329.    /lbuf 1000 string def
  330.    /pindex 1 def
  331.    beginpage
  332.  
  333. % Iterate through the file.
  334.    lpline
  335.     { dup length /pos exch def
  336.       lbuf exch 0 exch putinterval
  337.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  338.        {    % Filled the line before a CR or EOF.
  339.          exch pop showline
  340.        }
  341.        {    % Reached CR and/or EOF first.
  342.          exch length pos add lbuf exch 0 exch getinterval
  343.      1 index { showline } if        % omit final empty line
  344.       { dup length 0 eq Truncate or { pop () exit } if
  345.         showline
  346.       }
  347.      loop
  348.      exch not { exit } if
  349.        }
  350.       ifelse
  351.     } loop
  352.    pop
  353.  
  354. % Wrap up.
  355. %**************** WHY IS THIS COMMENTED OUT? ****************
  356. %   EjectEOF { endpage } { endcolumn } ifelse
  357.    endpage
  358.    /restore 0 true lpexec
  359.  
  360.  } def
  361.  
  362. end
  363.  
  364. % Usage: <file> lp
  365. %   prints <file> using the current parameter settings.
  366. % Usage: [ <arg1> ... <argn> ] lpcommand
  367. %   interprets args like a command line.
  368.  
  369. /lp { save   lpdict begin () lp end   restore } def
  370.  
  371. lpdict begin
  372.  
  373. /splitfn        % (FontNNN) -> <font>
  374.  { dup /arg exch def length
  375.     { dup 0 le { exit } if
  376.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  377.       1 sub
  378.     } loop
  379.    arg exch 0 exch getinterval dup cvn find-latin-font
  380.    exch arg exch anchorsearch pop pop cvr scalefont
  381.  } def
  382.  
  383. % Parse the command line switches.
  384.  
  385. /doswitch    % argn ... arg1 (-?) restofswitch ->
  386.  { exch dup cvn lpdict exch known
  387.     { cvn load exec }
  388.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  389.    ifelse
  390.  } def
  391.  
  392. /more        % argn ... arg1 restofswitch ->
  393.  { dup length 0 ne
  394.     { (- ) dup 1 3 index 0 get put
  395.       exch dup length 1 sub 1 exch getinterval
  396.       doswitch
  397.     }
  398.     { pop
  399.     }
  400.    ifelse
  401.  } def
  402.  
  403. /-- { (--) exch concatstrings
  404.       dup cvn lpdict exch known
  405.        { cvn load exec }
  406.        { (Unknown switch: ) eprint eprint (\n) eprint }
  407.       ifelse
  408.     } def
  409. /--columns { cvi 1 max /Columns exch def } def
  410. /--detect { /DetectFileType true def } def
  411. /--first-page { cvi /PageFirst exch def } def
  412. /--footing-center { /FootingCenter exch def   /Footers true def } def
  413. /--footing-left { /FootingLeft exch def   /Footers true def } def
  414. /--footing-right { /FootingRight exch def   /Footers true def} def
  415. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  416. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  417. /--heading-right { /HeadingRight exch def   /Headers true def } def
  418. /--last-page { cvi /PageLast exch def } def
  419. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  420. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  421. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  422. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  423. /--no-eject-file { /EjectEOF false def } def
  424. /--no-eject-formfeed { /EjectFF false def } def
  425. /--spacing { cvr /Spacing exch def } def
  426.  
  427. /-# { pop } def        % ignore
  428. /-+ { -- } def
  429. (-1)cvn { /Columns 1 def   more } def
  430. (-2)cvn { /Columns 2 def   more } def
  431. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  432.       /Headers true def
  433.       /break true def
  434.     } def
  435. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  436.       /Headers false def
  437.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  438.       /Footers false def
  439.       /break true def
  440.       more
  441.     } def
  442. /-C { pop } def        % ignore
  443. /-c { /Truncate true def   more } def
  444. /-d { pop } def        % ignore
  445. /-f { splitfn /BodyFont exch def } def
  446. /-F { splitfn /HeadingFont exch def } def
  447. /-G { more } def    % ignore
  448. /-g { more } def    % ignore
  449. /-h { more } def    % ignore
  450. /-J { pop } def        % ignore
  451. /-K { more } def    % ignore
  452. /-k { more } def    % ignore
  453. /-l { 66 -L -B } def
  454. /-L { cvi /MaxLines exch def } def
  455. /-m { more } def    % ignore
  456. /-n { pop } def        % ignore
  457. /-o { more } def    % ignore
  458. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  459. /-P { pop } def        % ignore
  460. /-q { /Noisy false def   more } def
  461. /-r { /Landscape true def   more } def
  462. /-R { /Landscape false def   more } def
  463. /-S { pop } def        % ignore
  464. /-s { pop } def        % ignore
  465. /-T { cvi /Tab exch def } def
  466. /-v { pop } def        % ignore
  467. /-w { more } def    % ignore
  468.  
  469. /lp1        % filename ->
  470.  { break not { dup /HeadingLeft exch def } if
  471.    Noisy
  472.     { (Printing ) eprint dup eprint (\n) eprint 
  473.     } if
  474.    (r) file
  475.         % If requested, check for a PostScript file.
  476.    DetectFileType
  477.     { dup 2 string readstring pop dup (%!) eq
  478.        {    % Yes, it's a PostScript file.
  479.          pop dup 80 string readline pop pop cvx exec
  480.        }
  481.        { lp
  482.        }
  483.       ifelse
  484.     }
  485.     { () lp
  486.     }
  487.    ifelse
  488.  } bind def
  489.  
  490. /lpcstring 100 string def
  491.  
  492. end
  493.  
  494. /lpcommand        % <[arg1 ... argn]> lpcommand <any_printed>
  495.  {    % Push the commands on the stack in reverse order
  496.    mark exch
  497.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  498.    lpdict begin
  499.    /any false def
  500.    /break false def
  501.     { dup mark eq { pop exit } if
  502.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  503.        { dup 0 2 getinterval
  504.          exch dup length 2 sub 2 exch getinterval
  505.      doswitch
  506.        }
  507.        { dup  /matched false def
  508.           { /matched true def   /any true def   lp1 } lpcstring filenameforall
  509.      matched { pop } { lp1 } ifelse        % let the error happen
  510.        }
  511.       ifelse
  512.     } loop
  513.    OutFile null ne
  514.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  515.       /OutFile null def
  516.     } if
  517.    any
  518.    end
  519.  } def
  520.  
  521. [ shellarguments
  522.  { ] dup length 0 ne { lpcommand } { false } ifelse not
  523.     { (%stderr) (w) file
  524.       [ (Usage: )
  525.     /PROGNAME where { pop PROGNAME } { (gslp) } ifelse
  526.     ( [-12BclqRr] [-b<header>] [-f<font>] [-F<hfont>]\n)
  527.     (        [-L<lines>] [-p<outfile>] [-T<tabwidth>] [--columns <n>]\n)
  528.     (        [--detect] [--first-page <page#>] [--last-page <page#>]\n)
  529.     (        [--(heading|footing)-(left|right|center) <string>]\n)
  530.     (        [--margin-(top|bottom|left|right) <inches>]\n)
  531.     (        [--no-eject-(file|formfeed)] [--spacing <n>] file1 ... filen\n)
  532.       ] { 2 copy writestring pop } forall dup flushfile closefile
  533.     }
  534.    if
  535.  }
  536.  { pop }
  537. ifelse
  538.